﻿Partial Class Document

    Public Class Column
        Public Caption, Size, Alignment, Format As String
        Public Left, Width As Single

        Sub New(ByVal Caption As String, ByVal Size As Integer, ByVal Alignment As String)
            Me.Caption = Caption
            Me.Size = Size
            If InStr(Alignment, "d") > 0 Then Format = "d" : Alignment = Replace(Alignment, "d", "") & "c"
            If InStr(Alignment, "m") > 0 Then Format = "m" : Alignment = Replace(Alignment, "m", "") & "r"
            If InStr(Alignment, "n") > 0 Then Format = "n" : Alignment = Replace(Alignment, "n", "") & "r"
            Me.Alignment = Alignment
        End Sub

    End Class

End Class